home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Misc / Bartender Test < prev    next >
Encoding:
Text File  |  1999-03-04  |  827 b   |  41 lines  |  [TEXT/ToyS]
  1. global sasSave -- Settings when run
  2. global sasMode -- Which test suite?
  3.  
  4. property kasTest : false -- Testing in editor?
  5.  
  6. on run
  7.     set sasSave to bartender settings
  8.     set sasMode to 0
  9.     
  10.     if (kasTest) then
  11.         repeat while (sasMode < 6)
  12.             pause for (idle) with seconds timing
  13.         end repeat
  14.     end if
  15. end run
  16.  
  17.  
  18. on idle
  19.     copy sasSave to testSet
  20.     
  21.     if (sasMode is 0) then
  22.         set menu bar of testSet to not (menu bar of testSet)
  23.         bartender settings testSet
  24.     else
  25.         set menu bar of testSet to false
  26.         
  27.         if (sasMode < 5) then
  28.             set menu mode of testSet to item sasMode of {menus are active, menu bar area usable, menu bar drops down, menu bar drops with modifiers}
  29.             bartender settings testSet
  30.         else if (sasMode is 5) then
  31.             bartender settings sasSave
  32.         else
  33.             quit
  34.         end if
  35.     end if
  36.     
  37.     set sasMode to sasMode + 1
  38.     
  39.     return 10
  40. end idle
  41.